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BEGIN O0GUL10000 
@ %4%% APPEND/CANDE SOURCE PRUGRANs OP £0, 422 00010100 
Sr COMMENTS * TITLE: . 85500/B57G0 MARK XIV. SYSTEM. RELEASE | ow OQoulU11O AE asf he 
f * FILE 10% SYMBUL/APPENO TAPE ID! SYMBOLZ/FILEOGO * 00010414 
@: * THIS MATERIAL IS PROPRIETARY TO BURROUGHS CORPORATION * 00010112 
PO oa _* AND IS NOT TO BE REPRODUCED, Uses UR pIScLOSep oo  .00010113_ ean wey Te ee eS 
f * EXCEPT IK ACCURDAWCE WITR PRUGRAM LICENSE QR UPON * oodlo114 
@: * WRITTEN AUTHORIZATION OF THE PaTEN] DIVISION OF * 00010115 
ils 22S Seo * BURROUGHS CORPORATION» GCETROLls MICMIGAN 48232 0000 000104160 0 
* * 00010117 
@ ; * COPYRIGHT (C) 19715 1972 ‘BURROUGHS CORPORATION * 00010118 
arama ee V1-1+7 1-7 Sa TT 7; ea tons 
ue REAL COMMONS 00010200 
@: SAVE ARRAY ERRCOSA]sAsNCOP 30] sb» PARAMS( OL 4043 00010300 
Me Ase edie PE UNO RCER TL. 2. DISK PERTAL. Cog09 0) 3c lor ily tues roe eeecoenine ntios OO TOMO Oe ood icc s eee ale 
AS FILE IN WRKFIL DISK SERIAL (2902023 00010500 
@ : FILE OUT QUTFIL OLSk SERIAL €202600} (2510s300eSAVE 1)3 00010600 
ees i: FILE OUT NEWTAB. DLSK SERIAL. £20230 ] (2e30*s3004SAVE 1)5 3 3= = = eaten tate 
Wa BOULEAN BRAAK»s RESEG» SEQCHK» SFLGs MAKTAB» SUPPRESS=s OKs 00010800. 
@ LABEL NEXTPARAM» TESTREAUs KEAOSRCE, HKAyESKCEs EGF. EGFWRK} 00010900 
8 eee REAL AD? BASE®  ECFPT Re ENOKESE Gs. EOFMARKe  HRANGE? 0 OOOLLOOO Lira 
3 INCR, LINEs LRANGEs LRECs NAPs NCTse NPARAMSs NPTRo OUTSEQ, 00011100 
@» Pcs PREVSEQs REC» SRCESEQs STRTKESEGe USER» WRKSEQ} 00011200 
Pee ce ee AUSSI II IOI II IOI UII III III III IGG OI iOb i Ot tice ia to 00011300 | eee aie 
ine REAL STREAM PROCEDURE HORC(FsN)4 VALUE Na 00011400 
@ 23 Fae eI IO II RII IO i III IO Oi ioioiok iacioidickioniee #€4*00044500 
fe SYtsF3s 3C¢SIseS1l-8)3 DIts Loc F3 “pStswOS3 00011700 
@ « St:sFs 14CSls:eSI1+9)s Drsst_oc Fs OSs=wDs;3 00011800 
— coeur tS SF 3 NCST3SS14+8)3 OL2=LOC HORS DSt3nDS3_ Ii Pe cet, See LD eee ees OO LEO OO gc Fee eh aii hee 
8) END STREAM PROCEDURE HDRS ocol2o00 
@» Foe ee OS III SOR IOI TOI IO tit toca 00012100 
“ PRUCE DURE DISKWALTCI] »A2Se0)3_ SNe ee es LA ols de ir UE OO. case coats 2 mei ae 
v VALUE IeSeDs REAL IeSeDs ARRAY Aled; ~COMMUNICATEC="8)3 00042300 
@ = Rea EEE KEENER RAKE KEKE KEENE HOOO1LZ400 
3 PROCEDURE TWXOUTCA®Ne TIS 00012500. ee Be ee ee 
34 GE ERR RIOR TIRE RARER RKE ARAN EERE ERE AA ARR EHEROOULZ600 
@= VALUE NoTs 00012700 
Be wo aE AL As nate. ii Rade Ea Tat ah asp a tn te Mae Rams wi a on oe Oe 2) Cole ic itt oN a ane td hn aT leon Se ee ies tt 
a BEGIN COMMUNICATE("11)5 00012900 
@« BRAAK 3% BOOLEAN(T )3 % MCP RETURNS 1 IF &REAK OCCURRED, 00013000 
' Bid cae baer: ENDS pectin a toe acca Rate here Meee a a eee ee ___ 00013100 | su tet a lth oe 
SFI IIIS IIS III IOO IG UIUIDG GD OURO ta ke Hw Haw EHEOOOL3 200 
@ REAL STREAM PROCEDURE INPCONV(X)3 00013300 
“| BEGIN SLt=x3s DItS_oC INPCONVS DS3=8 OCTs ENDS. 00013400 
43 BI III II I Ra RIE Rie a ie ei kate te e00013500 
@ « STREAM PROCEDURE OUTCONVCA®N)$ VALUE NB 00013600 
A) BEGIN. SItsLOc NZ DItsAs DStsADECs ENDS eho Garston wrt eatog till teh OT POO, Site neti ease Patt 
i GINS ISI UIUC EIT ODA IHRE KIO REE AKER EER RAHA HHHEOOOL3BOC 
@ STREAM PROCEDURE MOVE(N#AeB)3 VALUE N3 00013900 
Goaleet BEGIN SIssAs DI s=Bs OS:=n wOSS ENO een ne ene eee evr OO L40.00.. : I got en PT ae Tee OE ee oe oe ee 
; COUSINS OO EER Paw H eR Ha Rika ainda RAE EH EOO0LG4O0 
@ STREAM PROCEDURE INFORMUSERCAsNMBReLABT)S VALUE NMBRSLASTS 00014200 
Pee eee a Me ERE Ee ee ee eee ae ke ee eee 000143900 
p BEGIN LOCAL SV3 00014400 
e DIt=AsS SV8EDTS SITt=LOC NMBRS DS#FBDECS OLteSvs OSt*aPF ILL; 00014500 
SLi SSV3 DItesve SCIF Sce”" " THEN STtsSI+) FLSE OStsCHR)3 —= 00014600 
DS:s4OLIT" RECORDS APPENDED (LAST RECORD APPENDED="; 00014700 
@ SvteDI3 SIt=LOC LASTS DS#sBDECS UlssSV3 OSt=/7FILL 00014800 
3 a LESS DISSVs ACIF SCs" " THEN StteS14+) ELSE OSteCHR)s = ss oodidmain = 
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OSt=16L IT") "5 00014820 
@ END STREAM PROCEDURE INFORMUSER3 00014830 
ee a: Fae ee FI I BI II TOI III IOI OO IOI III IO tt toi tet wee OOO E900 ke 
1 STREAM PROCEDURE MAKERRCERR»NISN@)3 VALLE NieN23 00015000 
@ Me TsO IO ROO ki tor iGo kG tokens nk kek 00015100 
ee BEGIN LOCAL SV3_ Liu bhR hie Gx avo. Loeiiowl abide. 4 DOULSSOO:.. 
is DISSERR} DStel5LIT"SEQUENCE EMROR?"3 Syt=DI3 00015300 
@: SI:sLOC N13 DS#=8 DECS DItsSvs OSts7FILLs 00015400 
6 wae »  ~D$2SV3 OL tsple8s oStaacrtn 9s fe en intl Eehedas a iia «hae cope ne OO YO POS 5 ho oe ethos h cs Seti ut 
‘ SvtsDIs SYssLOC M23 OS:s8DECs OLteSv3 OSt=7F IbL3 00015600 
oe: END STREAM PROCEDURE MAKERR 00015700 
Pe i tI IO EI TOI OGIO OG iota totes ten ik 90015800 
fp PROCEDURE ERROR(N1eN2)3 VALUE Ni*N2s REAL NieNnes 00015900 
1 BT Fe eI III II III II IOI IIGI III III IOI IOI IG Gi intone ieiciee 900016000 
ES SE acters aE GA Ne 122 acess hte en ee len Lib sa de an RTO OO) «, ..05 
i MAKERRCERRsN1sN2)3 TWXOUTCERREOJ»3301)3 00016200 
@ END PROCEDURE ERRORS 00016300 
en ee eee TT ET TE TTT TTT ETT TET TET TCT TT eT Tree Rekekxeenee eee aeQ0016400— 
te ACO)8=03 DISKWAITC1sAs30eCUMMON)S & GET ESP RECORD 00016500 
@” USER t= AC2]3 00016600 
mW, OU TCONVILINESACL).0403:8))5 % DECIMAL LINE NUMBER on ., 00016700 
om IF MAKTAB t= aCt),C3ti] & 0 THEN % TAB FILE WILL BE REQUIRED 00016800 
@ FILL NEWTAB WITH * QML TCOSIGZISJALINEL IBS 303 10), USER: 00016900 
Pee ne Pb SRCEP IE WITH. AL3)s. AC4)4 & File TO. Be APPENDED 0027000 
2 FILL WRKFIL WITH AL10],USERS & EXISTING WORK FILE 00017100 
@» FILL OUTFIL WITH AcQJ»s USERS & OUTPUT FILE NAME 00017200 
Ass oe SUPPRESS Se AL te CBRE OS TS cu chose Gecataeleh Jb da. deucgods madhaebarwadabealice dMes wo. 00917250... 
a IF RESEQ $= AL5] NEQ@ © THEN 00017300 
@ + BEGIN 00017400 
mC... STRIRESEQS2A05]3 & LOWER BOUND FOR RESEQUENCE . Ae itt Mines Ye map atutn lO ONT SOO 
pe ENDRESE@ %=A[6]3 &% UPPER BOUND FOR RESEQUENCE 00017600 
@7 INCR tsAL8)3 % RESEGUENCE INCREMENT 00017700 
Ped arta is meee Aenea aie Od SENG ge REG EM: BASE. 8 oe. ceo es colon i oe OOO ROO 
ia END3 00017900 
YE NPARAMS $= AC1],C27%633 % PARAMETER COUNT 00018000 
OO nnn  AREAD SEEKCSROEFILCO122 EGEPTRe sHDRCSRCEFIL»7)3.% EOF POINTER... ...... 00038100. 
4 SFLG := HOR(SRCEFIL+S4),036!6) NE@ 84 & NOT TYPE DATA 00018200 
@: NcT = =13 00018300 
Meee ere eo eG BEGIN 2 TRANSFER WRKF IL RECORDS TC GuIFIL | ioe eee ee OOO VB AO 0. f 2 pee ut 
i READCWRKFIL®10sB0 e] LEGFWRKIZ WRITECOUTFILs10*BL«])3_ 00018500 
eo IF MAKTAB THEN 00018600 
ea yea etaladen GAEL © soa ao nite, Pet Oaths Sts es Sen cA et alae thd, Rade ee tO WOE ON ncn ag Se a ee 
“4 IF NPTR $= NPTR # 1 GTR 29 THEN 00018800 
oy BEGIN 00018900 
mo WRETECNEWTABS UNC HIF ae 00019000 
c NPTR 3% O3 00019100 
@ |: END3 00019200 
_ JNENPTRI ta SHRESEGES INFCONV CE 9 })) & CNCTHFNCT +1) ¢42832¢4633 00019300 
ENDS % IF MAKTAR 00029400 
END UNTIL FALSE3 00019500 
SS 81 1 0511 ee RRR ee a ae Re eA OO Re Oe 00019600 
CLOSE CWRKFIL)S 00019700 
PREVSEQ 23 "13 00019800 
SURE ch ie NW Ferns cata a al ME pe eet haan hes i anna ee ad a at Paw Oe OOO EI OU ia ect lg an ks 
FOFMARK %#1000U000003 00020000 
IF SEQCHK != NPARAMS GTR O THEN &% PARAMETERS SPECIFIED 00020100 
cen BEGIN Faneeh cot institeNt eee ee ee a 0 020 
MOVE C9 sAC21 J »PARAWS)3. 00020300 
RECs#03 NPARAMS!?ISNPARAMS@=43 SRCESEQt=PCta=43 LRECta43 00020400 


__NEXTPARAMS 00020500 
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@ eo \e 
LREC t= LREC “13 00020600 
@ LRANGE $3HRANGE!=PARAMS(PCi=PC+1 J 00620700 @ 
ihe ation IF LRANGE=100000000 THEN %@ "END™ —..,.90920800 hee ee 
n BEGIN 000¢0900 D 
@» READCSRCEFILCEGFPIR] »14sGL*JLEOFIS READCSRCEFILDS 00021000 1@ 
a GO TO HAVESRCES. Bhatt se hete aia ante BPI, See St cow enenae, ON0E1100 sees wi Ser cia Se ad a 
4 END3 00021200 4 
e° IF PC LSS NPARAMS THEN % MORE PARAMETERS AVAILABLE 00021300 |1@ 
SO iaz. IF PARAMSEPC+ 1) .Castj=1 THEN % RANGE SPECIFIED a MOVZLHOO erect a 6 
1 HRANGES®PARAMS(PC8=PC+i],l21382e7)3 00021500 7 
e : IF NOT SFLG THEN % RECORD LOCATION SPECIFIED 00021600 10 
ae BEGIN. piel cece GUD 7 OD a oe eg ae eas = 9 
a READ SEEKCSRCEFILELREC t=(LRANGE=1)*REALCLRANGE NEQ 0)J)3- 00021800 19 
ee: GO TO READSRCES % SKIP BINARY SEARCH 00021900 '@ 
ee ... ENDS o00¢2000, ee 12 
3 “IF SRCESEQ = LRANGE THEN % ALREADY HAVE THIS KECURD 00022100 "3 
@: BEGIN LREC*=LREC + 13 GO TO HAVESRCES ENDs 00022200 1@ 
BS TF (EQFPTRLREC) LSS 30 THEN GO TO READSRCES & SKIP BINARY SEARCH 00022300 BPA atte Seta Se, Pete ees 15 
: RECT=LREC+(EQFPTR=LREC) DIV 23 % START In THE CENTER OF RANGE 00022400 16 
ee. GO TO TESTREADS 00022500 "@ 
ee DO BEGIN. 00022600 .. es ge ig alate aa I 
2 IF LRANGE LSS SRCESEQ THEN & MUVE BACKs ACT LSS 0 00022700 19 
e- RECS=(RECISREC*ADJ)XxREAL (REC «L121]#0) ELSE % MOVE UP 00022800 1@ 
Pt ee TP REC OLRECESREC)+A0U GTR EUFPTR. THEN. RECSsEOFPTRe.... . 900022900 x Hea aN Ren Mee 
a TESTREADS 000z230C0 a 
@» READCSRCEFILERECI] »149BLe])3 00023100 a@ 
2 SRCESEQ?SINPCUNV(BLQJ)3. 00023200. : ey ot i heel 
2s IF SRCESE@=LRANGE THEN & MATCHING RECORD 00023300 C 
e« BEGIN LRECssREC$ READCSKCEFIL)$ GO TO HAVESRCE3 END3 00023400 1@ 
ae tip ants DEORE CR ERE COIN Be as csc laics dpe tat (an Gea ee ie, steed nc at an Se a oe OO DSO ee eles ee a eee ie ewe 2 
8 END UNTIL ADJ LEQ 13 00023600 26 
@» READ SEEKCSRCEFILECLREC])% % NUT FUUND IN BINARY SEARCH» GO BACK 00023700 0 
peers ENDS. & TF. PARAMETEGS SPECIFIEO oie ce nei ee 0029800 Heri tel aestal 3 
i Retencnce 00023900 : 
@” READSRCES 00024000 1 @ 
el nna Me oe ee acento oN edt ae lenient Whee aVacieeie ee Bh he eat Sad ed ae EYE) AEA UN icra Zere Qoverodugiie kiana stetagtint dete te eats 2 re ra 
pe READ( SRCEF IL» 10s8C*) )CEOFIs 00024260 34 
e* LREC t= LREC + 13 0024300 31@ 
a ene Bare Seat AEM are saa ett AD MC Oe t:28 ce tp cl ntdlt etna! an 3¢ 
5 IF SEQCHK THEN 000z4500 if 
e» BEGIN 00024600 4@ 
SE SROESEO LSS LRANGE THEN GO TO READSRCES & TOG LGW | vo a wm women @0024700 | ha Se ee ee A 7 
bo IF SRCESEQ@ GTR HRANGE THEN % TOU HIGH 00024800 ‘ 
] IF SEQCHKt=PC LSS NPARAMS THEN GU NEXTPARAm ELSE GO EOF; 00024900 @ 
a BONDE Aa SE OC Ss Gi taiok a le i en tet St i ee ON at eh open OOS SOO ao osteeth cndeaycstr eee att actin, gm, a cS casa Racacinatd Th sectaal A 
Xevaseese 009025100 hi 
HAVESRCE! 00025200 ®@ 
Bat eeneee |. Ledid ne OO OES 300 aoe i ctl le ee ee : 
OUTSEQ#=IF MAKTAB AND NOT SFLG THEN LAPCONV(BL9)) ELSE SRCESEQ?. 00025400 46 
IF RESEQ THEN &% RESECGUENCE THE FILe 00uz5509 «7|@ 
_.... IF OK OR SRCESEQ@ GE STRTRESEG THEN _ oe ee 00025600 eae pinate a eteee r 
IF RESEQ%s0Kt=SRCESEQ LEQ ENORESEQ THEN % RECORDS ARE IN RANG 00025700 as 
BEGIN 00025800 “1 @ 
we. .OUTSEQ 2% BASE 3% BASE + INCR# % CALCULATE NEW SEQ» NUMBER 00025900 Satie Bhat Sere a Sate 2: 51 
OUTCONV(BC9),0UTSEC)3 %& MOVE NUMGER TO RECGAL 00026000 5 
END3 00026400 «|@ 
_.DF MAKTAB THEN % CHECK SEQ, NUMBERS PEM a2 a pete ad 00026200, esses _ 4 
BEGIN 00026300 55 
IF QUTSE@ t= OUTSEG + 2XxREALCOUTSEQG20) + WRKSEQ LEQ PREVSEQ THEN 00026400 5 @ 
ee obey OE Nis lola eee a es ery, Wore ase te er edit OOM BOS O25 20 oe) oF ot cea ey ee vy, 
, — . @e 
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IF NOT BRAAK TREN ERRORCPREVSEQSOUTSEQ)S TELG ThE USER 
OUTSEQ := PREVSEQ + 23 * ADJUST SEQUENCE wUMBER 

We END}; 

: QOUTCONV(BL9},0UTSEQ)3 

2 PREVSEQ t= OUTSEQ; 

on IF NPTR $* NPTR +11 GTR 29 THEN 4 SEGMENT IS FILLED 

4 BEGIN 

es WRITE CNEWTABs 309NL%1)3 

oe NPTR2503_ 

? ENDS 

8 NENPTR) %& O & (NCTSENCT4#1)04232316) & OUTSEAL21:21:27)3 

sees .END3 .% IF. MAKT AB. Bh Eater rel Ease co is ae oem, 

” WRITECOUTFIL®105BL4))3 

a NAP s= NAP + 13 % NUMBER OF RECURDS APPENDED 

Neth arte GCN ION RRO SIN Ee Bel Fes ah Sats ices aan elt acini cries ert ie ges hale elastance 

13) Bae ee 

la EGF $ 

(18 IF MAKTAB THEN. 

i BEGIN 

1 nee ees w-hF. NPTRE SNPTROL GTR 29. THEN. oe 

BEGIN 

A, WRITECNEWTABs30,NU%))3 

Pat NPTRE203 

ie END3 

a NCONPTRJ?2=2EOFMARK3 

—ee WRITECNEWTABs302NC¥I23. 

zy READCNEWTABLOJ»30eNC¥*]);3 

(24 NCOJSSNCTS & EOF POINTER 

ie eee WRITECNEWTABLCOJ] 2 30eNC eI] 23... = 

i LOCKCNEWTABs*)3 

29 ENDS 

As CLUSECSRCEFIL)# LOCKCCUTFILsa*)3. Ee ee ene TT ae eae 

ca IF NOT SUPPRESS THEN 

a BEGIN INFORMUSERCAsNAPsGUTSEQ)3 TWXOLTCALO)s5601)3 ENDS 

pega COMMON &= NAP; 

cs END PROGRAM. 
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sa DEFINE INTABLECLINTABLEL»INIABLEZISUV3LINTABLELs les INTABLEZI]H» 

af 
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00027500 
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00028100 
00028200 


. 0.0928300 


00028400 
00028500 
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00029700 
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